﻿Imports BUS
Imports DTO
Public Class frmDanhSachTraCuuKhachHang
    Private _dskh As New List(Of KhachHangCrt)()
    Public Property DSKH() As List(Of KhachHangCrt)
        Get
            Return _dskh
        End Get
        Set(ByVal value As List(Of KhachHangCrt))
            _dskh = value
        End Set
    End Property

    Private Sub frmDanhSachTraCuuKhachHang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 0 To _dskh.Count - 1
            Dim lv As ListViewItem = lvwDSKH.Items.Add((i + 1).ToString())
            lv.SubItems.Add(_dskh(i).MaKh.ToString())
            lv.SubItems.Add(_dskh(i).TenKH.ToString())
            lv.SubItems.Add(_dskh(i).CMND.ToString())
            lv.SubItems.Add(_dskh(i).DiaChi.ToString())
        Next
    End Sub
End Class